home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_65_warp tool.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  3.4 KB  |  42 lines

  1. global gSize, gCast, gVariable, myCurrentImage, myCurrentPreview
  2.  
  3. on toolWarp
  4.   member("state1 - " & gSize, gCast).image = member(gSize & "x" & gSize, gCast).image
  5.   startPoint = point((the mouseH - sprite(1).left) * 2 / gVariable / 2, (the mouseV - sprite(1).top) * 2 / gVariable / 2)
  6.   myCurrentImage = duplicate(member(gSize & "x" & gSize, gCast).image)
  7.   myStartImage = duplicate(myCurrentImage)
  8.   myCurrentPreview = duplicate(member("preview", gCast).image)
  9.   tLImage = image(startPoint.locH, startPoint.locV, member(gSize & "x" & gSize, gCast).depth, member(gSize & "x" & gSize, gCast).paletteRef)
  10.   tLImage.copyPixels(myCurrentImage, tLImage.rect, rect(0, 0, startPoint.locH, startPoint.locV))
  11.   tRImage = image(myCurrentImage.width - startPoint.locH, startPoint.locV, member(gSize & "x" & gSize, gCast).depth, member(gSize & "x" & gSize, gCast).paletteRef)
  12.   tRImage.copyPixels(myCurrentImage, tRImage.rect, rect(startPoint.locH, 0, myCurrentImage.width, startPoint.locV))
  13.   bLImage = image(startPoint.locH, myCurrentImage.height - startPoint.locV, member(gSize & "x" & gSize, gCast).depth, member(gSize & "x" & gSize, gCast).paletteRef)
  14.   bLImage.copyPixels(myCurrentImage, bLImage.rect, rect(0, startPoint.locV, startPoint.locH, myCurrentImage.height))
  15.   bRImage = image(myCurrentImage.width - startPoint.locH, myCurrentImage.height - startPoint.locV, member(gSize & "x" & gSize, gCast).depth, member(gSize & "x" & gSize, gCast).paletteRef)
  16.   bRImage.copyPixels(myCurrentImage, bRImage.rect, rect(startPoint.locH, startPoint.locV, myCurrentImage.width, myCurrentImage.height))
  17.   repeat while the mouseDown
  18.     myCurrentImage.copyPixels(myStartImage, myStartImage.rect, myStartImage.rect)
  19.     myCurrentImage.copyPixels(tLImage, [point(0, 0), point(startPoint.locH, 0), point((the mouseH - sprite(1).left) * 2 / gVariable / 2, (the mouseV - sprite(1).top) * 2 / gVariable / 2), point(0, startPoint.locV)], tLImage.rect)
  20.     myCurrentImage.copyPixels(tRImage, [point(startPoint.locH, 0), point(myCurrentImage.width, 0), point(myCurrentImage.width, startPoint.locV), point((the mouseH - sprite(1).left) * 2 / gVariable / 2, (the mouseV - sprite(1).top) * 2 / gVariable / 2)], tRImage.rect)
  21.     myCurrentImage.copyPixels(bLImage, [point(0, startPoint.locV), point((the mouseH - sprite(1).left) * 2 / gVariable / 2, (the mouseV - sprite(1).top) * 2 / gVariable / 2), point(startPoint.locH, myCurrentImage.height), point(0, myCurrentImage.height)], bLImage.rect)
  22.     myCurrentImage.copyPixels(bRImage, [point((the mouseH - sprite(1).left) * 2 / gVariable / 2, (the mouseV - sprite(1).top) * 2 / gVariable / 2), point(myCurrentImage.width, startPoint.locV), point(myCurrentImage.width, myCurrentImage.height), point(startPoint.locH, myCurrentImage.height)], bRImage.rect)
  23.     member(gSize & "x" & gSize, gCast).image.copyPixels(myCurrentImage, myCurrentImage.rect, myCurrentImage.rect)
  24.     updateStage()
  25.     put (the mouseH - sprite(1).left) * 2 / gVariable / 2 into field "location status X"
  26.     put (the mouseV - sprite(1).top) * 2 / gVariable / 2 into field "location status Y"
  27.     fnUpdatePreview()
  28.   end repeat
  29.   sprite(35).pState = 0
  30.   sendSprite(35, #setMember)
  31.   member("state2 - " & gSize, gCast).image = member(gSize & "x" & gSize, gCast).image
  32.   myCurrentImage = VOID
  33.   myStartImage = VOID
  34.   myCurrentPreview = VOID
  35.   tLImage = VOID
  36.   tRImage = VOID
  37.   bLImage = VOID
  38.   bRImage = VOID
  39.   put EMPTY into field "location status X"
  40.   put EMPTY into field "location status Y"
  41. end
  42.